home *** CD-ROM | disk | FTP | other *** search
- .bra {
- .ket }
- .key DriveA,DriveB,LhA_path
- . This procedure will install the Pro-Board demo software to
- . two disks inserted in DF0: and/or DF1: as specified by DriveA and DriveB
-
- IF {DriveA$"Nothing"} EQ "Nothing"
- NEWCLI Con:100/10/477/123/Installation FROM InstallFloppy.usage
- SKIP OutaHere
- ENDIF
-
- IF NOT EXISTS {LhA_path$"C:LhA"}
- ReqRequest " LhA must be in the command path. " " OK, it's there now " Quit
- IF NOT WARN
- SKIP OutaHere
- ENDIF
- IF NOT EXISTS {LhA_path$"C:LhA"}
- ReqRequest " LhA MUST be in the command path! " QUIT
- SKIP OutaHere
- ENDIF
- ENDIF
-
- IF NOT EXISTS Sys:System/Format
- ReqRequest " FORMAT must be in your Sys:System directory " " OK, it's there now " Quit
- IF NOT WARN
- SKIP OutaHere
- ENDIF
- IF NOT EXISTS Sys:System/Format
- ReqRequest " FORMAT MUST be in your Sys:System directory " QUIT
- SKIP OutaHere
- ENDIF
- ENDIF
-
- ReqRequest " This procedure will format {DriveA} " Continue Quit
- IF NOT WARN
- SKIP OutaHere
- ENDIF
-
- FAILAT 31 ; Control exits from this batch file
- IF NOT EXISTS ProDemoArc:
- ASSIGN ProDemoArc: / ; Set a source directory for installation
- ENDIF
-
- SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveA} NAME Pro-Demo QUICK NOICONS
- IF FAIL
- SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveA} NAME Pro-Demo NOICONS
- IF FAIL
- ProDemoArc:Install/ReqRequest " Floppy cannot be formatted " QUIT
- SKIP OutaHere
- ENDIF
- ENDIF
-
- CD {DriveA}
- {LhA_path$"C:LhA"} x ProDemoArc:PRODEMO.LHA
-
- ProDemoArc:Install/ReqRequest " Insert second disk in {DriveB} " Ready Quit
- IF NOT WARN
- SKIP OutaHere
- ENDIF
-
- SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveB} NAME Pro-Data QUICK NOICONS
- IF FAIL
- SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveB} NAME Pro-Data NOICONS
- IF FAIL
- ProDemoArc:Install/ReqRequest " Floppy cannot be formatted " QUIT
- SKIP OutaHere
- ENDIF
- ENDIF
-
- CD {DriveB}
- {LhA_path$"C:LhA"} x ProDemoArc:PRODATA.LHA
-
- ASSIGN ProDemoArc:
-
-
- LAB OutaHere
- ENDCLI ; Comment this line if you run from CLI instead of IconX
-
-